home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS18.ADF / Logo / logo.4 < prev    next >
Text File  |  1989-01-27  |  546b  |  26 lines
  1. ;
  2. ;You don't always need real numbers to get a circle.
  3. ;Ratios are sometimes just as good.
  4. ;
  5.  
  6. to forcircle :fd :lt 
  7.     rp 360/:lt [fd :fd lt :lt]
  8. end
  9.  
  10.  
  11. to demo
  12.     cs pd rt 90
  13.     rp 4 [forcircle 1 1 lt 90]
  14.     rp 4 [forcircle 1 2 lt 90]
  15.     rp 4 [forcircle 1 3 lt 90]
  16.     rp 4 [forcircle 1 4 lt 90]
  17.     rp 4 [forcircle 2 3 lt 90]
  18.     rp 4 [forcircle 1 6 lt 90]
  19. end
  20.  
  21. ;
  22. ;How do I do it without reals?  I maintain the X and Y locations
  23. ;in 32 bits, but with a fixed point decimal point at bit 15.  This
  24. ;gives me accuracy to 1 part in 10000.
  25. ;
  26.